home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / 83win / data1.cab / Basic_Plus_Examples / LIMWDGT < prev    next >
Text File  |  2001-03-02  |  1KB  |  31 lines
  1. 10    ! **********************************************************
  2. 20    ! Example: LIMITS Widget
  3. 30    !
  4. 40    ! This program generates a LIMITS widget. In the program,
  5. 50    ! the value is increased from 1 to 99. The LOW limit is
  6. 60    ! set to 20 and the HIGH limit is set to 80. Since the
  7. 70    ! ALARM RANGES is set to "OUTSIDE" ("O"), and ALARM TYPE
  8. 80    ! is "BEEP", the alarm sounds when the pointer is in the
  9. 90    ! red ranges.
  10. 100   !
  11. 110   ! **********************************************************
  12. 120   !
  13. 130       DIM Value(1:100)
  14. 140       ASSIGN @Lim TO WIDGET "LIMITS"
  15. 150       CONTROL @Lim;SET ("TITLE":" Example: LIMITS Widget")
  16. 160       CONTROL @Lim;SET ("LOW LIMIT":20,"HIGH LIMIT":80)
  17. 170       CONTROL @Lim;SET ("ALARM TYPE":"BEEP","ALARM RANGES":"O")
  18. 180       CONTROL @Lim;SET ("MINIMUM":0,"MAXIMUM":100)
  19. 190       CONTROL @Lim;SET ("SYSTEM MENU":"Quit")
  20. 200       ON EVENT @Lim,"SYSTEM MENU" GOTO Finis
  21. 210       LOOP
  22. 220           FOR I=1 TO 99
  23. 230               Value(I)=I
  24. 240               CONTROL @Lim;SET ("VALUE":Value(I))
  25. 250               WAIT .1
  26. 260           NEXT I
  27. 270       END LOOP
  28. 280  Finis:!
  29. 290       ASSIGN @Lim TO *   ! Delete LIMITS widget
  30. 300       END
  31.